home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pov / povlisti.ngs / truchet1.pov < prev    next >
Encoding:
Text File  |  1992-03-07  |  3.0 KB  |  114 lines
  1. // Persistence of Vision Raytracer Version 1.0
  2. // Test of wood texture { with solid to clear colormap
  3. // Persistence of Vision Raytracer
  4. #include "colors.inc"
  5. #include "shapes.inc"
  6. #include "textures.inc"
  7.  
  8. camera {
  9. //    location <0 0 -16>
  10.     location <6 8 -10>
  11.     direction <0 0 1>
  12.     up  <0 1 0>
  13.     right <1.33333 0 0>
  14.     look_at <0 0 0>
  15. }
  16.  
  17. object {
  18.    light_source { <5 100 -250>
  19. //  colour red 0.6 green 0.6 blue 0.6
  20.     colour White
  21.     }
  22. }
  23.  
  24.  
  25. #declare VeryDarkWood1 = color red 0.30 green 0.15 blue 0.09
  26. #declare DarkWood1 =  color red 0.60 green 0.30 blue 0.18
  27. #declare Wooden = texture {
  28.         wood
  29.         turbulence 0.04
  30.         octaves 3
  31.         scale <0.2 0.2 1>
  32.         colour_map {
  33.             [0.00 0.10 color DarkWood1 color DarkWood1]
  34.             [0.10 0.90 color DarkWood1 color VeryDarkWood1]
  35.             [0.90 1.01  color VeryDarkWood1  color VeryDarkWood1 ]
  36.          }
  37.         ambient 0.2
  38.         diffuse 0.8
  39. }
  40.  
  41. //  Outer radius: 1.25  Inner radius: 0.75
  42. #declare Torus = quartic {
  43.    <    1.000000 0.000000 0.000000 0.000000 2.000000
  44.         0.000000 0.000000 2.000000 0.000000 -2.125000
  45.         0.000000 0.000000 0.000000 0.000000 0.000000
  46.         0.000000 0.000000 0.000000 0.000000 0.000000
  47.         1.000000 0.000000 0.000000 2.000000 0.000000
  48.         1.875000 0.000000 0.000000 0.000000 0.000000
  49.         1.000000 0.000000 -2.125000 0.000000 0.878906 >
  50.  }/* end_quartic */
  51.  
  52. #declare Quarter_Torus = object {
  53.   quartic { Torus rotate <90 0 0>  }
  54.   clipped_by {
  55.       plane { <-1 0 0> 0  }
  56.       plane { <0  1 0> 0  }
  57.    }
  58.   color Red
  59.   texture {
  60.       bumps 0.15
  61.       scale <0.25 0.25 0.25>
  62.       color Gold
  63.       ambient 0.2
  64.       diffuse 0.8
  65.       reflection 0.15
  66.       brilliance 8.0
  67.       specular 1
  68.       roughness 0.001
  69.    }
  70. }
  71.  
  72. #declare Tile = composite {
  73.     object { Quarter_Torus translate <-1 1 0>  }/* end_object */
  74.     object { Quarter_Torus rotate <0 0 180> translate <1 -1 0>  }/* end_object */
  75.     bounded_by {
  76.         sphere { <0 0 0> 1.77  }
  77.      }
  78. }
  79.  
  80. #declare EvenTile = composite {
  81.     composite { Tile  }
  82. }
  83.  
  84. #declare OddTile = composite {
  85.     composite { Tile  }
  86.     rotate <0 0 90>
  87. }
  88.  
  89. #include "tile.inc"
  90.  
  91.  
  92. #declare XFramePiece1 = object { box { UnitBox scale <6.5 0.5 0.5> }
  93.     texture { Wooden rotate <0 -85 0> translate <-3 0 0> }
  94. }
  95. #declare XFramePiece2 = object { box { UnitBox scale <6.5 0.5 0.5> }
  96.     texture { Wooden  rotate <0 90 0> translate <-2.5 0 0> }
  97. }
  98.  
  99. #declare YFramePiece1 = object { box { UnitBox scale <0.5 6.5 0.5> }
  100.     texture { Wooden  rotate <0 0 0> translate <85 0 1> }
  101. }
  102. #declare YFramePiece2 = object { box { UnitBox scale <0.5 6.5 0.5> }
  103.     texture { Wooden  rotate <0 5 0> translate <87 0 -1>}
  104. }
  105.  
  106. composite {
  107.     composite { Tiles }
  108.     object {XFramePiece1 translate <0.5 -6.5 0> }
  109.     object {YFramePiece1 rotate <0 0 180> translate <-6.5 -0.5 0> }
  110.     object {XFramePiece2 rotate <0 0 180> translate <-0.5  6.5 0> }
  111.     object {YFramePiece2 translate < 6.5 0.5 0> }
  112.     rotate <90 0 0>
  113. }
  114.